set var_noeudId [lindex $argv 0]
set var_noeudPseudo [lindex $argv 1]

proc debug {s } {
	.content.center.frameMessages.messages  insert end $s
	.content.center.frameMessages.messages  insert end "\n"
}



#set var_listeSalons(A) A
#set var_listeSalons(A,nom) "A"
#set var_listeSalons(A,connecte) 0
#set var_listeSalons(A,listeConnecte) {}
#set var_listeSalons(A,idCentre) $var_noeudId

#set var_listeSalons(B) B
#set var_listeSalons(B,nom) "B"
#set var_listeSalons(B,connecte) 0
#set var_listeSalons(B,listeConnecte) {}
#set var_listeSalons(B,idCentre) $var_noeudId


#set var_listeSalons(C) C
#set var_listeSalons(C,nom) "Salon C"
#set var_listeSalons(C,connecte) 0
#set var_listeSalons(C,listeConnecte) {}



proc_updateListeSalons
#.content.left.frameSalons.listeSalons selection set 0
#proc_afficheMessages

wm title . $var_noeudId

set var_noeudPseudo "moi"
proc_ajouterNoeudPseudo $var_noeudId $var_noeudPseudo
# proc_ajouterNoeudListeConnectesSalon $var_noeudId
#proc_listeNoeuds
#debug [proc_getNoeudPseudo $var_noeudId]
#proc_afficheListeNoeuds


# initialise le ping 
proc_envoiPing
proc_envoiSalonsPing

#initialise l'affichage des voisins
proc_voisinsAfficher

